home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
COMMADIO
/
GTPCPS44.LZH
/
PCP-NXCH.SCR
< prev
next >
Wrap
Text File
|
1988-12-30
|
1KB
|
51 lines
; GTPCP\V4.4 - PCP-NXCH SCRIPT
; (C) Perry Alexander - Dec 1988
; GT Power Version 1403
; Script to Dial New PCP NetExchange
;
CLEAR
WRITELN " ╔═══════════════════════════════════════════════════════════════╗ "
WRITELN " ║ GTPCP 4.4 ║ "
WRITELN " ║ ║ "
WRITELN " ║ Attempting to connect to Net Exchange ║ "
WRITELN " ║ ║ "
WRITELN " ║ To Return to Terminal Mode . . . . . Press Alt-X ║ "
WRITELN " ╚═══════════════════════════════════════════════════════════════╝ "
TWAIT 4000
CLEAR
BEEP
SENDLN "SET 0:0,57:1,63:0"
SENDLN "909631"
WAIT FOR "login:"
SENDLN "bbs"
SENDLN "@"
WAIT FOR "@"
SENDLN "SET 2:0,4:2"
WAIT FOR "@"
SENDLN "CONN"
ONLINE
BREAK
SENDLN "@"
WAIT FOR "@"
SENDLN "D"
WAIT FOR "CONN"
WAIT FOR "@"
CHAIN "PCP-NODE.SCR"
~ BUSY
CLEAR
WAIT FOR "@"
WRITELN "Retrying ════════ NetExchange "
WRITE "Number of Attempts ..... "
WRITELN %10
WRITELN
WRITELN "To return to Node Menu - Press [Ctl-K] "
TWAIT 2000
CYCLE 100
CHAIN "PCP-NODE.SCR"
?
WRITE "TELENET response unrecognized :"
CHAIN "PCP-NODE.SCR"
ESAC
RMWIN
CHAIN "PCP-NODE.SCR"